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MODULE exch$cld_table 


' 
! Version: *v04-000' 


ie COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ie ALL RIGHTS RESERVED. 


ie re SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND og ta 
'@ ONLY IN ACCORDANCE WITH THE TERMS OF SUCH Tarts AND WITH THE 
tt INCLUSION OF THE ABOVE pS gpl th a NOTICE. THIS sort ARE OR ANY OTHER 


: 0 
'® OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 
't TRANSFERRED. 


ie THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
‘; ponar ion NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


lee 

: FACILITY: EXCHANGE - Foreign volume interchange facility 
ABSTRACT: Internal DCL command definition tables 

; ENVIRONMENT : VAX/VMS User mode 

AUTHOR: CW Hobbs CREATION DATE: 17-July-1982 
MODIFIED BY: 

' 
! 
t 
' 
' 
! 


v03-003 cumisees CW Hobbs 12-Apr-1984 
Add dummy P2 for copy /BOOT 


v03-002 CwH3002 CW Hobbs 19-Sep-1985 
Add missing “PLACEMENTS LOCAL” to /VOLUME for MOUNT 
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! Types are non-negatable by default 
DEFINE TYPE data_check_type 

KEYWORD read NEGATABLE 

KEYWORD write NEGATABLE, DEFAULT 
DEFINE TYPE density_type 


KEYWORD 80 
KEYWORD 48 8 
KEYWORD 


WN" OOONOUS W009 


DEFINE 1YPE carriage_control_type 


KEYWORD carriage_return DEFAULT 
KEYWORD fortran 


SIS SFOS OSL LISS 


; KEYWORD none 
71 
; 
74 KEYWORD bincry 
75 KEYWORD fixed VALUE (DEFAULT=512, TYPE=S$NUMBER) 
7 KEYWORD pad VALUE (DEFAULT=0) 
7 KEYWORD stream 
re KEYWORD variable 
80 


81 nN DEFINE TYPE retain_type 
58 i, KEYWORD retain 


5 
B6 DEFINE TYPE transfer_mode_type 


88 KEYWORD automatic DEFAULT 
9 KEYWORD block 


| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
DEFINE TYPE record_format_type 
| 
| 
KEYWORD record 


9c 
93 DEFINE TYPE volume_format_type 


95 KEYWORD dos11 
96 KEYWORD files11 
KEYWORD rt} 
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DEFINE SYNTAX boot_copy 
ROUTINE exch$rtnam_copy_boot 
PARAMETER P1 LABEL=input 
PROMPT='Monitor file'’ 
VALUE (REQUIRED, TYPE=SINFILE) 


PARAMETE? 2 LABEL output 
VALUE (TYPE=S$OUTFILE) 


QUALIFIER boot NONNEGATABLE 
VALUE 


7 
} 
! Dummy, only here so that normal RT-11 syntax is allowed | 
QUALIFIER log 
QUALIFIER volume_format NONNEGATABLE 
VALUE (REQUIRED, TYPE=volume_format_type) 


PLACEMENT=LOCAL 


DEFINE VERB copy 
ROUTINE exch$copy_copy 


PARAMETER P1 LABEL=input 
PROMPT="In ut file( 
VALUE (REQUIRED, LI 


PARAMETER P2 = LABEL =output 
PROMPT= Puteut file 
VALUE (REQUIRED, TY 
QUALIFIER allocation NONNEGATABLE 
VALUE (REQUIRED, TYPE=$NUMBER) 
PLACEMENT=PO0S1T {ONAL 
QUALIFIER best_try_contiguous 


GATABLE 
PLACEMENT=POSITIONAL 
NONNEGATABLE 


s)"' 
ST, TYPE=SINFILE) 


PE=SOUTF ILE) 
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QUALIFIER boot 
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3 SYNTAX=boot_copy 

; QUALIFIER taretege_contre) a 

5 VALUE (TYPE=carriage_control_type) 

41 PLACEMENT=LOCAL 

ri} ‘\ QUALIFIER confirm 
4 QUALIFIER contiguous PLACEMENT=PO0S1 TIONAL 
44 QUALIFIER delete DEFAULT 

45 QUALIFIER extension NONNEGATABLE 

r¢ VALUE (REQUIRED, TYPE=SNUMBER) 

4 PLACEMENT =POSI TLONAL 

48 '\ QUALIFIER fdl NONNE GATABLE 

49 iy VALUE (REQUIRED, TYPE=SINFILE) | 
50 i\ PLACEMENT=POS I TLONAL 

51 QUALIFIER Log 
2¢ QUALIFIER protect 
5 QUALIFIER record_format NONNEGATABLE 
54 VALUE (REQUIRED, LIST, TYPE=record_format_type) 


a ee ee ee ee ee ed ed ed wd dd ed dd ed wd dd wd od dd dd dd 
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PLACEMENT=LOCAL 
replace 


IER 
IER rewind pera 
PLACERENT=POS1T ONAL 
IER start block NON NEGATABLE 
VALUE (REQUIRED, TYPE=$NUMBER) 
1h BA 


y 
trons fer mode ort tar ABLE 
(REQUIRED, TYPE=transfer_mode_type) 
pth ¢ MENT=LOCAL 
IFIER truncat PLACEMENT=P0SI1 TIONAL 
IFIER volume_ lorast NONNE GAT 
VALUE (REQUIRED, TYPE=volume_format_type) 
PLACEMENT=LOCAL 


QUAL IF 
QUAL IF 


~ 
m 


DEFINE VERB delete 
ROUTINE exch$rtnam_delete 
PARAMETER P1 LABEL ® input 
ilenam 


PROMPT=" (s)"* 
VALUE (REQUIRED, ‘fst, TYPE=SINFILE) 


“+ ft 
me. format ct ge ABLE 
ALUE (REQUIRED, TYPE=volume_format_type) 
PLACEMENT= LOCAL 
DEFINE VERB directory 
ROUTINE exch$dire_directory 


PARAMETER P1 LABEL=filenam 
VALUE (LIST, TYPE=SINFILE, DEt AULT=SYS$DISK) 


QUALIFIER all 
'\ QUALIFIER badblocks NONNEGATABLE 
QUALIFIER blocks 
QUALIFIER brief 
QUALIFIER columns DEFAULT 
NONNEGATABLE 
VALUE (DEFAULT=0, TYPE=SNUMBER) 
QUALIFIER date DEFAULT 
QUALIFIER deleted 
QUALIFIER free 
QUALIFIER full 
QUALIFIER octal 
CUA tee output VALUE (REQUIRED, TYPE=SOUTF ILE) 
QUALIFIER owner 
QUALIFIER printer 
QUALIFIER size DEFAULT 
QUALIFIER summary 


a ts 
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recserctahe'By:32 


QUALIFIER volume_format orate ys 
(R BtERED. TYPE=volume_format_type) 


DEFINE VERB dismount 


PLAC MENT=LOCAL 


ROUTINE exch$moun_dismount 


PARAMETER P1 


LAOeL very iconane 
VALUE (REQUIRED, TYPE=SINFILE) 


QUALIFIER message 


DEFINE VERB exit 
ROUTINE exch$mai 


DEFINE VERB help 
ROUTINE exch$mai 
PARAMETER P1 


DEFINE SYNTAX create_ 
PARAMETER P1 


PARAMETER P2 


DEFINE VERB initializ 
ROUTINE exch$ini 
PARAMETER P1 


PARAMETER P2 


QUALIFIER alloca 


'\ QUALIFIER badblocks 


QUALIFIER create 
QUALIFIER densit 


nexit 


n_help 
LABEL=topic, VALUE (TYPE=$REST_OF _LINE) 


init 

LApeL weny icenene,, 
PROMPT="'Filen 

VALUE (REQUIRED, ‘TYPESSINFILE) 
LABEL=volumelabel 

VALUE (DEFAULT="'VMS Exchange'’) 
e 

t_initialize 

LABEL sény tconane 

VALUE (REQUIRED, TYPE=SINFILE) 


LABEL=volumelabel 
VALUE (DEFAULT=""VMS Exchange"’) 


tion NONNEGATABLE 

ae (REQUIRED, TYPE=SNUMBER) 
te (TYPE=retain_type) 

SYNTAX=create_init 


y NONN L 
VALUE (REQUIRED, TYPE=density_type) 


MS Command 
btsk VMSMASTER:C 
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QUALIFIER extra_words VALUE (REQUIRED, TYPE=$NUMBER) 
oe QUALIFIER message 
'\ IFIER replace VALUE (TYPE=retain_type) 
QUALIFIE E 
FI 


VALUE sPE SUB RED. TYPE=$NUMBER) 
ER volume_format NONNEGAT 

VALUE (REQUIRED, TYPE=volume_format_type) 
PLACEMENT=LOCAL 


R segments NONNEGATABL 
QUALI 


DEFINE SYNTAX virtual_mount 


PARAMETER P1 LABEL=devicename 
PROMPT="‘Virtual device’ 
VALUE (REQUIRED, TYPE=SINF ILE) 


PARAMETER P2 ft AN pel 


PROMPT="'F i Len 
VALUE (REQUIRED. TYPE=SINFILE) 


DEFINE VERB mount 
ROUTINE exch$moun_mount 
PARAMETER P1 LABEL seny iconane 


PROMPT="'‘Device 
VALUE (REQUIRED, TYPE=SINF ILE) 


QUALIFIER data_check VALUE (LIST, TYPE=data_check_type) 
QUALIFIER foreTgn DEF AULT 
QUALIFIER message 
QUALIFIER virtual NONNEGATABLE 
SYNTAX=virtual_mount 
QUALIFIER volume_format N T 


L 
VALUE tet hehe” TYPE=volume_format_type) ! only 1 parm, no placement 
iy eal =LOCAL 
QUALIFIER write DEFAU 
DEFINE VERB rename 
ROUTINE exch$rtnam_rename 
PARAMETER P1 LABEL=input 
PROMPT =" 
VALUE (REQUIRED, TYPE=SINFILE) 
PARAMETER P2 LABEL=output 
VALUE (REQUIRED, TYPE=SOUTFILE) 


'\ QUALIFIER confirm 
QUALIFIER log 
QUALIFIER protect 
QUALIFIER system 


——-—_—_—— 
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QUALIFIER volume_format NONNEGATABLE 
VALUE (REQUIRED, TYPE=volume_format_type) 
PLACEMENT=LOCAL 


DEFINE VERB show 
ROUTINE exch$show_show 


; \OEF INE VERB squeeze 
i\ ROUTINE exch$sque_squeeze 


'\ 

\ PARAMETER P1 LABEL=device_name 

'\ PROMPT="'Device'' 

i. VALUE (REQUIRED, TYPE=$OUTFILE) 

i\ PARAMETER P2. ss LABEL=output_device 

\ PROMPT="‘Output device’ 

‘\ VALUE (TYPE=SOUTF ILE) 

i. QUALIFIER volume_format NONNEGATABLE 

'\ VALUE (REQUIRED, TYPE=volume_format_type) 
'\ PLACEMENT=LOCAL 


DEFINE VERB type 
ROUTINE exch$copy_type 
PARAMETER P1 ay ot A ut 


PT=""Filename(s)"' 
VALUE (REQUIRED, LIST, TYPE=SINFILE) 


'\ QUALIFIER confirm 
QUALIFIER log 
QUALIFIER record_format NONNEGATABLE 


VALUE (REQUIRED, LIST, TYPE=record_format_type) 
PLACEMENT =LOCAL 

QUALIFIER rewind DEF AUL 
PLACEMENT=POSI TIONAL 


QUALIFIER volume_format NONNEGATABL 
VALUE (REQUIRED, TYPE=volume_format_type) 
PLACEMENT=LOCAL 
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$ SET COMMAND/OBJECT=0BJ$:EXCCLOTBL/LISTING=LISS:EXCCLOTBL MSRCS:EXCCLOTBL 
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